Calculatrices Casio Graphiques : Jeux, programmes, cours, pompes, astuces et programmation sur calculatrice graphique Casio et ClassPad 300 : programmes casio et jeux casio...

ClrText
GridOff
AxesOff
LabelOff
ClrGraph
Text 1,38,"# LAB CDP #"
Text 10,3,"LABEL CARLIER DENIS PRODUCTION"
Text 21,15,"========================="
Text 29,20,"CREATION DE PROGRAMMES"
Text 35,17,"GRAPH 35+ OU SUPERIEURES"
Text 44,1,"-------------------------"
Text 50,45,"PRESENTE :"
ClrText
Locate 4,2,"$$$$$$$$$$$$$$$"
Locate 4,3,"# #"
Locate 4,4,"# #DRUGWAR# #"
Locate 4,5,"# ----^---- #"
Locate 4,6,"# #"
Locate 4,7,"$$"
Do:LpWhile Getkey31
Lbl T
ClrText
"PASSER L'INTRO :"
" "
"1]OUI"
"2]NON "?A
A<1 Or A>2Goto T
A=1Goto U
ClrText
"DANS UN NEW-YORK TOTALEMENT CORROMPU, LES DEALEURS SE LIVRENT UNE GUERRE SANS MERCI... LA BRONX DEAL-MAFIA T'ASDONNEE 4 MOIS POUR FAIRE TES PREUVES AUPRES DU BOSS, DANS L'UNIVERS IMPITOYABLEDE LA DROGUE..."
Do:LpWhile Getkey31
Lbl U
ClrText
"1]COMMENCER PARTIE"
"2]AVERTISSEMENT"
"3]QUITTER "?A
A<1 Or A>3Goto U
A=2Goto Z
A=3ClrText
A=3Stop
Lbl 8
{0,0,0}List 1
0A~Z
2000Z
5000U
100K
1B
2r
100T
ClrText
Lbl 9
Int 12000Ran#+16000C
Int 7000Ran#+5000H
100(Int 34Ran#+10)A
10(Int 42Ran#+33)W
10(Int 15Ran#+7)S
10(Int 4Ran#+1)L
Int 20Ran#+1D
ClrText
Int 9Ran#List 1[2]
List 1[2]=1 And List 1[1]=8"Des cocktails ? T'en as trop, utilise-en !A plus... MERDE, on est repere par une armee de flics !!!"
List 1[2]=1 And List 1[1]=8Goto A
List 1[2]=1"Un Cocktail molotov, ca peut servir en casde baston... PREND !"
List 1[2]=1List 1[1]+1List 1[1]
List 1[2]=1ClrText
D=1"Des stups'vendent desLSD pas cher !!"
D=12L
D=2"Le prix du CANNABIS achute !!!"
D=2117W
D=3"Les stups'vendent l'HEROINE de leur derniere saisie pas cher !!"
D=3Int 1150Ran#+850H
D>3 And D<6"Les Junky achetent de l'HEROINE hors de prix !!"
D>3 And D<6Int 25000Ran#+18000H
D>5 And D<8"Les stups'ont demonteun reseau de coke !"
D>5 And D<8"Les prix sont fous !"
D>5 And D<8Int 60000Ran#+80000C
D=8"Tu t'es fait racketerdans le Metro !"
D=8Int (Z3)Z
D15 Or Z299Goto P
"Veux-tu acheter un nouveau blouson avec plus de poches a 200 dollars (1=OUI) "?X
X1Goto P
100+TT
T-M-N-O-P-Q-RK
Z-200Z
Lbl P
If D=14:Then "Eh Superman,"
"Goutte-voir,"
"C cool..."
" "
"Fumer (1=OUI) "?X:Int 3Ran#F
ClrText
If X=1:Then F=1"T'as hallucine sur lepire trip de ta vie."
F=1"Tu es tombe sur les rails et le train t'abroye !!"
F=1Goto 0
"C'EST DE LA BONNE !"
"Pour lui avoir fait"
"confiance, le Junky te file 25 sacs de coke !"
M+25M
K-25K
T+0T:IfEnd
IfEnd
(D12 And D13) Or K4 Or Z499Goto Q
"Veux-tu acheter"
Int 3Ran#X
X=0"une Berreta"
X=1"un 38 S&W"
X=2"un 44 Magnum"
"a 400 $ (1=OUI) "?X
X1Goto Q
I=4"Tu as deja 4 flingueset c'est le maximum que tu peux avoir."
I=4Goto Q
Isz I
Z-400Z
T-5T
T-M-N-O-P-Q-RK
Lbl Q
D16 Or K7Goto R
Int 7Ran#+1F
"Tu as trouve"
F=1"1 dose"
F=2"2 doses"
F=3"3 doses"
F=4"4 doses"
F=5"5 doses"
F=6"6 doses"
F=7"7 doses"
Int 5Ran#X
X=0"de LSD"
X=0R+FR
X=1"de SPEED"
X=1Q+FQ
X=2"de CANNABIS"
X=2P+FP
X=3"d'ACID"
X=3O+FO
X=4"d'HEROINE"
X=4N+FN
X=5"de COCAINE"
X=5M+FM
"sur un mort-shoote duMetro !"
T-M-N-O-P-Q-RK
Goto H
Lbl R
D=17"Le marche est envahi par de l'ACID pas cher fait-maison !!"
D=17Int 550Ran#+250A
D=17Goto H
M+N+O+P+Q+R<0Goto H
Int 12Ran#+1X
X>3Goto H
X=11D
X=22D
X=33D
ClrText
"Un mec des stups'"
D=1"avec 1 flic"
D=2"avec 2 flics"
D=3"avec 3 flics"
"sont a ton cul !"
Lbl A
List 1[2]=1 And List 1[1]=821D
ClrText
Locate 1,1,"TU ES POURCHASSE !!!"
Locate 3,3,"1]Les armes"
Locate 3,4,"2]Barre de vie"
Locate 3,5,"3]Les policiers"
Locate 3,6,"4]COURIR"
Locate 3,7,"5]ATTAQUER"
3X
Do:Locate 2,X,""
Do:GetkeyF
LpWhile F=0
Locate 2,X," "
F=28X-1X
F=37X+1X
X=83X:X=27X
LpWhile F31
X-2X
X<1 Or X>5Goto A
ClrText
If X=1:Then "Tu as"
I>0Locate 7,1,I
I=0Locate 7,1,"aucun flingue."
I0Locate Int (log I)+9,1,"flingue(s)."
" "
I=1"PRECISION : 25/100"
I=2"PRECISION : 50/100"
I=3"PRECISION : 75/100"
I=4"PRECISION : 100/100"
I>0" "
"Cocktails molotov :"
I=0Locate 21,3,List 1[1]
I0Locate 21,5,List 1[1]
IfEnd
X=2"Ta vie :"
X=2Locate 10,1,35-J
X=2 And 35-J<10Locate 10,1," "
X=2 And 35-J<10Locate 11,1,35-J
X=2Locate 12,1,"/35"
X=3"T'as encore"
X=3Locate 13,1,D+1
X=3"fuckin'cops au cul !"
X<4Goto A
X=5Goto E
ClrText
Int 2Ran#X
X=0"Tu les as seme dans une rue !"
X=0 And J=0Goto H
X=0Goto
X=1"Tu ne peux pas les semer !"
X=1Goto F
Lbl E
List 1[1]>0"Utiliser un Cocktail molotov (1=OUI) "?X
ClrText
X=1 And List 1[1]>0"COUCOU LE KEUF ! Viseun peu ca !!... BAM !2 COPS EN MOINS !"
X=1 And List 1[1]>0D-2D
X=1 And List 1[1]>0List 1[1]-1List 1[1]
X=1Int 4Ran#List 1[3]
ClrText
X=1 And List 1[3]=2"Merde, T'as mal lanceet toi aussi tu en profite en meme tempsque les flics ! CA FAIIIIT MAAAAL..."
X=1 And List 1[3]=2J+8J
J>34Goto O
X=1 And D0Goto F
X=1 And D<0Goto G
ClrText
I=0"PAS DE FLINGUE ! Tu dois courir !"
I=0Goto A
I=1Int 4Ran#X
I=2Int 3Ran#X
I=3Int 2Ran#X
I=40X
X>0"T'as loupe !!"
X=0"T'en as eu un grace au(x) flingue(s) !"
X=0Dsz D
X=0 And D<0Goto G
Lbl F
ClrText
Int 2Ran#X
"ATTENTION, Ils te tirent dessus !"
Int 7Ran#
=0 And I>0"DANS LA PANIQUE, TU PERDS UN FLINGUE !"
=0 And I>0Dsz I
ClrText
X=0ClrText
X=0"Ils t'ont loupe !"
X=0Goto A
ClrText
"T'as ete TOUCHE !"
J+3J
Int 3Ran#X
D>0 And X=0"GRAVEMENT EN PLUS !"
D>0 And X=0J+3J
Lbl O
ClrText
J>34"T'es mort !!!"
J>34Goto 0
Goto A
Lbl G
ClrText
"Tu les as tous eu !"
Int 1250Ran#+750X
Z+XZ
ClrText
"Tu as trouve "
Locate 14,1,X
"dollars sur le cadavre d'un des flics."
J=0Goto H
Lbl
ClrText
"Tu es blesse !"
Z<1000"Mais tu peux obtenir une aide medicale quisera ajoutee a tes dettes (1=OUI) "?X
Z<1000 And X=1U+1000U
Z<1000 And X=10J
Z<1000Goto H
"Veux-tu etre soigne":"pour 1000 dol. CASH (1=OUI) "?X
X1Goto H
Z-1000Z
0J
Lbl H
8
ClrText
U>11900"Tu t'est trop endetteet le boss a envoye Le chacal te tuer..."
U>11900Goto 0
Locate 3,1,"1]Voir les prix"
Locate 3,2,"2]Blouson"
Locate 3,3,"3]Acheter"
Locate 3,4,"4]Vendre"
Locate 3,5,"5]BOUGER !"
Locate 3,6,"6]Voir le patron"
Locate 3,7,"7]Banque"
Locate 13,3,"#JOUR"
Locate 19,3,B
1G
Do
Locate 2,G,""
Do:GetkeyF
LpWhile F=0
Locate 2,G," "
F=28G-1G
F=37G+1G
G=07G
G=81G
LpWhile F31
GX
ClrText
X=2Goto I
X=3Goto K
X=4Goto L
X=5Goto M
X=6Goto 6
X=7Goto 4
Locate 1,2," #DRUGWAR# "
Locate 1,3," ----^---- "
Locate 9,5,"....."
Locate 1,7," CHARGEMENT DES PRIX "
Lbl W
Isz
Locate ,5,"/"
<13Goto W
ClrText
Locate 1,1,"COCAINE :":Locate 14,1,C
Locate 1,2,"HEROINE :":Locate 14,2,H
Locate 1,3,"ACID :"
Locate 14,3,A
Locate 1,4,"CANNABIS :":Locate 14,4,W
Locate 1,5,"SPEED :"
Locate 14,5,S
Locate 1,6,"LSD :"
Locate 14,6,L
Locate 1,7,"ARGENT ($) :"
Locate 14,7,Z
Do:GetkeyX
LpWhile X=0
Goto H
Lbl I
ClrText
Locate 1,1,"COCAINE :":Locate 17,1,M
Locate 1,2,"HEROINE :":Locate 17,2,N
Locate 1,3,"ACID :"
Locate 17,3,O
Locate 1,4,"CANNABIS :":Locate 17,4,P
Locate 1,5,"SPEED :"
Locate 17,5,Q
Locate 1,6,"LSD :"
Locate 17,6,R
Locate 1,7,"LIBRE :"
Locate 17,7,K
Do:GetkeyX
LpWhile X=0
Goto H
Lbl K
ClrText
"T'achetes quoi mec (C=COKE, H=HEROINE, A=ACID, W=CANNABIS, S=SPEED, L=LSD, 0=RIEN) "?F
F=0Goto H
FC And FH And FA And FW And FS And FLGoto K
Int (ZF)E
"En rayon j'ai :"
" "
" "
Locate 1,6,K
Locate 5,6,"doses."
"Combien "?G
G>K Or G<0"TU M'PREND POUR UN PEKNO ? CHT'AI DIT KEJ'EN AVAIS COMBIEN ?"
GK And G>0 And G>E"TROP CHER POUR TOI, CRETIN ! TU PEUX EN PRENDRE"
GK And G>0 And G>ELocate 9,7,E
GK And G>0 And G>E And E<10Locate 10,7," "
GK And G>0 And G>E And E<100Locate 11,7," "
GK And G>0 And G>ELocate 12,7," "
GK And G>0 And G>ELocate 13,7,"MAXIMUM !"
G>K Or G<0 Or G>EGoto K
Z-FGZ
F=CM+GM
F=HN+GN
F=AO+GO
F=WP+GP
F=SQ+GQ
F=LR+GR
T-M-N-O-P-Q-RK
Goto H
Lbl L
ClrText
"Tu vends quoi mec (C=COKE, H=HEROINE, A=ACID, W=CANNABIS, S=SPEED,L=LSD, 0=RIEN) "?F
F=0Goto H
FC And FH And FA And FW And FS And FLGoto L
F=CME
F=HNE
F=AOE
F=WPE
F=SQE
F=LRE
"Tu en as :"
" "
Locate 12,6,E
"Combien t'en vends "?G
G>E Or G<0"C'EST CA PREND-MOI POUR UN CON !"
G>E Or G<0Goto L
F=CM-GM
F=HN-GN
F=AO-GO
F=WP-GP
F=SQ-GQ
F=LR-GR
Z+FGZ
T-M-N-O-P-Q-RK
Goto H
Lbl M
ClrGraph
Text 2,43,"[BRONX]"
Text 11,42,"[GHETTO]"
Text 20,32,"[CENTRAL PARK]"
Text 29,35,"[MANHATTAN]"
Text 38,38,"[BROOKLYN]"
Text 47,37,"! SUICIDE !"
Text 56,36,"<JE RESTE !>"
2G
Do:Text G,10,"GO !"
Plot -7,-4
Do:GetkeyF
LpWhile F=0
Text G,10," "
F=28G-9G
F=37G+9G
G=652G
G=-756G
LpWhile F31
(G-2)9+1X
X<1 Or X>7Goto M
X=1 And r=2Goto M
X<71r
X=12r
X=6Goto 0
X=7Goto H
ClrText
">>>>>>>>METRO>>>>>>>>"
Isz B
Int (1.1U)U
Int (1.06V)V
U<790790U
B122Goto 0
Goto 9
Lbl 6
r=1"The boss ne deal que dans le Bronx."
r=1Goto H
ClrText
Lbl 1
ClrText
Locate 1,1,"C'EST POUR QUOI ?"
Locate 4,3,"1]Remboursement"
Locate 4,4,"2]Emprunt"
Locate 4,5,"3]Retour"
3X
Do:Locate 3,X,""
Do:GetkeyF
LpWhile F=0
Locate 3,X," "
F=28X-1X
F=37X+1X
X=25X
X=63X
LpWhile F31
X-2X
X<1 Or X>3Goto 1
X=3Goto H
Lbl N
ClrText
"DETTES :"
Locate 12,1,U
"ARGENT :"
Locate 12,2,Z
X=2Goto 5
"Tu rends combien "?F
F>Z Or F>U Or F<0Goto N
U-FU
Z-FZ
Goto 1
Lbl 5
"Combien t'emprunte "?F
F>5000"Tu le prends pour un con, mec ?"
F>5000ClrText
F>5000Goto 5
F<0Goto 6
U+FU
Z+FZ
Goto 1
Lbl 4
r=1"Ta banque est dans leBronx."
r=1Goto H
ClrText
Locate 4,2,"$$$BANQUE$$$"
Locate 3,4,"1]Ton compte"
Locate 3,5,"2]Depot"
Locate 3,6,"3]Retrait"
Locate 3,7,"4]Salut !"
4X
Do:Locate 2,X,""
Do:GetkeyF
LpWhile F=0
Locate 2,X," "
F=28X-1X
F=37X+1X
X=84X
X=37X
LpWhile F31
X-3X
X<1Goto 4
X>3Goto H
Lbl 2
ClrText
"ACCOMPTE :"
Locate 13,1,V
"ARGENT :"
Locate 13,2,Z
X=1Goto 4
X=2"T'en deposes combien mec "?G
X=2 And G>ZGoto 2
X=2V+GV
X=2Z-GZ
X=3"Tu retires combien "?F
X=3 And F>V And F0Goto 2
X=3V-FV
X=3Z+FZ
Goto 4
Lbl 0
ClrText
B122"BIEN JOUE, T'AS TENU 4 MOIS !"
ClrText
" xxxxxxxxxxxxx"
" x FIN x"
" xxxxxxxxxxxxx"
V+Z-UV
V<00V
V0V75000V
" "
" "
Locate 2,6,"SCORE :"
Locate 10,6,V
Locate 14,6," "
V<10Locate 11,6," "
V<100Locate 12,6," "
V<1000Locate 13,6," "
Locate 15,6,"POINTS"
Do:LpWhile Getkey31
Goto U
Lbl Z
ClrText
"Le joueur doit avoir 18 ans et etre"
"responsable. CE JEU NE DOIT PAS ETRE CONSIDERE COMME UNE INCITATION A L'ACTE."
Do:LpWhile Getkey31
Goto U